home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / CC Converter 1.1.1 / Scripts / MicroPhone™ / CAUL quit < prev    next >
Text File  |  1994-03-21  |  898b  |  31 lines
  1.  Settings File = script test
  2.  Script Name = CAUL quit
  3.  Command Key = 
  4.  F-Key = 
  5.  Menu = YES
  6.  Button = NO
  7.  Version = 5001
  8.  System = Macintosh
  9.  
  10. Remark "Script to log off (quit) from the CAUL Current Contents database"
  11. Remark "It can be run from any menu that supports /q (I think all of them do)."
  12. Remark "© Kevin Sanderson 1994"
  13. Set Variable * gExit from Expression "FALSE"
  14. Send Text String "'/q^M'"
  15. Repeat
  16.   When Text in Stream is "'ter Y or N:'"
  17.     Send Text String "'Y^M'"
  18.   Or When Text in Stream is "'REQUEST'"
  19.     Send Text String "'^'"
  20.     Send Text String "'^'"
  21.     Send Text String "'^'"
  22.     Set Variable * gExit from Expression "TRUE"
  23.   Or When Text in Stream is "'DATA BASE'"
  24.     Send Text String "'^M'"
  25.   Or When Seconds Have Passed "15"
  26.     Set Variable * gExit from Expression "TRUE"
  27.     Alert * OK "'Unable to exit.'"
  28.   End When
  29. Until Expression "gExit = TRUE"
  30. Delete Variable gExit
  31.